home *** CD-ROM | disk | FTP | other *** search
/ Biodiversity of Illinois 2: Woodland Habitats / Biodiversity of Illinois 2 - Woodland Habitats.iso / mac / casts / PDFxtraBehaviors.cst / 00012_Script_PDF_Print < prev    next >
Text File  |  2006-07-11  |  3KB  |  89 lines

  1. -- Print
  2.  
  3. Property pEvent, pSprite, pAlertFlag
  4.  
  5. on doPrint me
  6.   set err = PDF_Print(sprite pSprite)
  7.   if PDF_status(sprite pSprite) then alert "PDF Behavior Error" & RETURN & PDF_error(sprite pSprite)
  8. end doPrint
  9.  
  10. on mouseUp me
  11.   if (pEvent = #mouseUp) then doPrint(me)
  12. end mouseUp
  13.  
  14. on mouseDown me
  15.   if (pEvent = #mouseDown) then doPrint(me)
  16. end mouseDown
  17.  
  18. -- standard behavior stuff --
  19. on getPropertyDescriptionList me
  20.   set defaultValues = GetDefaultValues (me)
  21.   
  22.   set pdfSpriteList = getProp (defaultValues, #spriteList)
  23.   set defSprite     = getProp (defaultValues, #defaultSprite)
  24.   if (defSprite=0) then 
  25.     if the ticks - pAlertFlag > 10 then
  26.       alert "Please create a sprite of type PDF first."
  27.     end if
  28.     set pAlertFlag = the ticks -- The ticks when the user clicked "OK"
  29.     
  30.     exit
  31.   end if
  32.   set p_list = [:]
  33.   addprop p_list, #pEvent, [ #comment: "Event", #format:#symbol, #range:[#mouseUp, #mouseDown], #default:#mouseUp]
  34.   addprop p_list, #pSprite, [ #comment: "PDF Sprite is in channel:", #format:#symbol, #range:pdfSpriteList, #default:defSprite]
  35.   return p_list 
  36. end
  37.  
  38. on getBehaviorDescription
  39.   tmp = "Opens the standard Adobe Print dialog in order to print the open PDF document." &RETURN& "All platforms except Mac OS X."
  40.   tmp = tmp &RETURN&RETURN& "Free to use and abuse. (c)1999 - 2005, Integration New Media, Inc."
  41. return tmp  
  42. end
  43.  
  44. on getBehaviorTooltip
  45.   return "Opens the standard Adobe Print dialog" & RETURN & "in order to print the open PDF document." &RETURN& "All platforms except Mac OS X."
  46. end
  47.  
  48. -- utils --
  49. on GetDefaultValues me
  50.   if the currentSpriteNum then
  51.     set spriteList = GetSpriteList (me #PDF)
  52.     if count (spriteList) then
  53.       set defaultSprite = getAt (spriteList, 1)
  54.     else
  55.       set defaultSprite = 0
  56.     end if
  57.     
  58.     return [#spriteList: spriteList, #defaultSprite: defaultSprite]
  59.     
  60.   else -- the currentSpriteNum = 0
  61.     -- Director is merely recompiling this script: return dummy values
  62.     return [#spriteList: [1], #defaultSprite: 1]
  63.   end if
  64. end 
  65.  
  66.  
  67. on GetSpriteList me, memberType
  68.   -- return list of sprites of type memberType in current frame
  69.   global version
  70.   if (char 1 of version = 6) then
  71.     set maxSprite = 120
  72.   else
  73.     set maxSprite = the lastChannel
  74.   end if
  75.   
  76.   set aList=[]
  77.   
  78.   repeat with i = 1 to maxSprite
  79.     set spriteMember = the member of sprite i
  80.     -- if (string(m) contains "member 0") then next repeat -- unnecessary
  81.     if (the type of spriteMember = memberType) then -- (JN) Line break
  82.       append (aList, i)
  83.     end if
  84.   end repeat
  85.   
  86.   return aList
  87. end GetSpriteList
  88.  
  89.